* lisp/emacs-lisp/edebug.el (edebug-eval-defun): Print result using

proper Lisp quoting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c51c399c1e8727ba8b2da14cb61758684bea163f..7acc909b2947090eee1f5141cc328f95f8940e6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/edebug.el (edebug-eval-defun): Print result using
+       proper Lisp quoting (bug#17934).
+
        * progmodes/ruby-mode.el (ruby-mode-variables): Don't meddle with
        require-final-newline since prog-mode already took care of it (bug#17947).
 

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index e2d38ffe85899b3eaa8adcb284ff65d76d1ab3c1..892fa7f2d372608c961f69d3bba20774839628d7 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -497,7 +497,7 @@ the minibuffer."
     (setq edebug-result (eval (eval-sexp-add-defvars form) lexical-binding))
     (if (not edebugging)
        (prog1
-           (princ edebug-result)
+           (prin1 edebug-result)
          (let ((str (eval-expression-print-format edebug-result)))
            (if str (princ str))))
       edebug-result)))